(define (empty-stack)
    `()
)


(define (push stack element)
    (cons element stack)
)


(define (pop stack)
    (cdr stack)
)


(define (top stack)
    (car stack)
)


(define (empty-stack? stack)
    (eqv? stack `())
)
